home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok08.lha / CreateAmokDisk1.1 / AmokIcons / AmokDisk.mod < prev    next >
Text File  |  1993-08-15  |  6KB  |  132 lines
  1.  
  2.           (* -------> IMPLEMENTATION MODULE <-------- *)
  3.  
  4. IMPLEMENTATION MODULE AmokDisk;
  5.  
  6. FROM SYSTEM IMPORT      WORD;
  7.  
  8. FROM Heap IMPORT        AllocMem;
  9.  
  10. VAR     i   :INTEGER;
  11.  
  12.  
  13.  
  14. BEGIN   (* MAIN *)
  15.  
  16. FOR i:=0 TO   1  DO
  17.   AllocMem(ImgPtr[i],SIZE(ImgPtr[i]^),TRUE);
  18. END;
  19.  
  20. Imgwidth := 37;
  21. Imgheight:= 22;
  22. Imgdepth :=  2;
  23.  
  24.  
  25.  
  26. WITH ImgPtr[Disk]^ DO         (* Disk *)
  27.  
  28.   (* Plane 1 *)
  29.  Dat[  0]:=0513FH; Dat[  1]:=0FFEAH; Dat[  2]:=00000H;(* 1*)
  30.  Dat[  3]:=0803FH; Dat[  4]:=0F860H; Dat[  5]:=00000H;(* 2*)
  31.  Dat[  6]:=0803FH; Dat[  7]:=0F860H; Dat[  8]:=00000H;(* 3*)
  32.  Dat[  9]:=0803FH; Dat[ 10]:=0F860H; Dat[ 11]:=00000H;(* 4*)
  33.  Dat[ 12]:=0803FH; Dat[ 13]:=0F860H; Dat[ 14]:=00000H;(* 5*)
  34.  Dat[ 15]:=0817FH; Dat[ 16]:=0FFE0H; Dat[ 17]:=00000H;(* 6*)
  35.  Dat[ 18]:=08000H; Dat[ 19]:=00000H; Dat[ 20]:=00000H;(* 7*)
  36.  Dat[ 21]:=08000H; Dat[ 22]:=00000H; Dat[ 23]:=00000H;(* 8*)
  37.  Dat[ 24]:=081FFH; Dat[ 25]:=0FFFEH; Dat[ 26]:=00000H;(* 9*)
  38.  Dat[ 27]:=083FFH; Dat[ 28]:=0FFFFH; Dat[ 29]:=00000H;(*10*)
  39.  Dat[ 30]:=083FFH; Dat[ 31]:=0FFFFH; Dat[ 32]:=00000H;(*11*)
  40.  Dat[ 33]:=083FFH; Dat[ 34]:=0FFFFH; Dat[ 35]:=00000H;(*12*)
  41.  Dat[ 36]:=083FFH; Dat[ 37]:=0FFFFH; Dat[ 38]:=00000H;(*13*)
  42.  Dat[ 39]:=083FFH; Dat[ 40]:=0FFFFH; Dat[ 41]:=00000H;(*14*)
  43.  Dat[ 42]:=083FFH; Dat[ 43]:=0FFFFH; Dat[ 44]:=00000H;(*15*)
  44.  Dat[ 45]:=083FFH; Dat[ 46]:=0FFFFH; Dat[ 47]:=00000H;(*16*)
  45.  Dat[ 48]:=083FFH; Dat[ 49]:=0FFFFH; Dat[ 50]:=00000H;(*17*)
  46.  Dat[ 51]:=083FFH; Dat[ 52]:=0FFFFH; Dat[ 53]:=00000H;(*18*)
  47.  Dat[ 54]:=042AAH; Dat[ 55]:=0AAAAH; Dat[ 56]:=00000H;(*19*)
  48.  Dat[ 57]:=00000H; Dat[ 58]:=00000H; Dat[ 59]:=00000H;(*20*)
  49.  Dat[ 60]:=00000H; Dat[ 61]:=00000H; Dat[ 62]:=00000H;(*21*)
  50.  Dat[ 63]:=00000H; Dat[ 64]:=00000H; Dat[ 65]:=00000H;(*22*)
  51.  
  52.   (* Plane 2 *)
  53.  Dat[ 66]:=00400H; Dat[ 67]:=00010H; Dat[ 68]:=08000H;(* 1*)
  54.  Dat[ 69]:=00400H; Dat[ 70]:=00000H; Dat[ 71]:=02000H;(* 2*)
  55.  Dat[ 72]:=00400H; Dat[ 73]:=00000H; Dat[ 74]:=00800H;(* 3*)
  56.  Dat[ 75]:=00400H; Dat[ 76]:=00000H; Dat[ 77]:=00800H;(* 4*)
  57.  Dat[ 78]:=00400H; Dat[ 79]:=00000H; Dat[ 80]:=00800H;(* 5*)
  58.  Dat[ 81]:=00680H; Dat[ 82]:=00000H; Dat[ 83]:=00800H;(* 6*)
  59.  Dat[ 84]:=00000H; Dat[ 85]:=00000H; Dat[ 86]:=00800H;(* 7*)
  60.  Dat[ 87]:=001FFH; Dat[ 88]:=0FFFEH; Dat[ 89]:=00800H;(* 8*)
  61.  Dat[ 90]:=00200H; Dat[ 91]:=00000H; Dat[ 92]:=00800H;(* 9*)
  62.  Dat[ 93]:=00400H; Dat[ 94]:=00000H; Dat[ 95]:=00800H;(*10*)
  63.  Dat[ 96]:=00400H; Dat[ 97]:=01FC0H; Dat[ 98]:=00800H;(*11*)
  64.  Dat[ 99]:=00400H; Dat[100]:=07FC0H; Dat[101]:=00800H;(*12*)
  65.  Dat[102]:=00401H; Dat[103]:=0FFC0H; Dat[104]:=00800H;(*13*)
  66.  Dat[105]:=00407H; Dat[106]:=0F7C0H; Dat[107]:=00800H;(*14*)
  67.  Dat[108]:=0041FH; Dat[109]:=0FFC0H; Dat[110]:=00800H;(*15*)
  68.  Dat[111]:=0047FH; Dat[112]:=007F0H; Dat[113]:=00800H;(*16*)
  69.  Dat[114]:=005FCH; Dat[115]:=007F0H; Dat[116]:=00800H;(*17*)
  70.  Dat[117]:=00400H; Dat[118]:=00000H; Dat[119]:=01800H;(*18*)
  71.  Dat[120]:=03D55H; Dat[121]:=05555H; Dat[122]:=0F000H;(*19*)
  72.  Dat[123]:=00000H; Dat[124]:=00000H; Dat[125]:=00000H;(*20*)
  73.  Dat[126]:=00000H; Dat[127]:=00000H; Dat[128]:=00000H;(*21*)
  74.  Dat[129]:=00000H; Dat[130]:=00000H; Dat[131]:=00000H;(*22*)
  75.  
  76. END;
  77. (* Brushbreite gegenüber IFF geändert! *)
  78.  
  79.  
  80. WITH ImgPtr[DiskH]^ DO         (* DiskH *)
  81.  
  82.   (* Plane 1 *)
  83.  Dat[  0]:=02AAAH; Dat[  1]:=0AAAAH; Dat[  2]:=0A000H;(* 1*)
  84.  Dat[  3]:=04000H; Dat[  4]:=00000H; Dat[  5]:=00000H;(* 2*)
  85.  Dat[  6]:=08000H; Dat[  7]:=00000H; Dat[  8]:=00000H;(* 3*)
  86.  Dat[  9]:=08000H; Dat[ 10]:=00000H; Dat[ 11]:=00000H;(* 4*)
  87.  Dat[ 12]:=08000H; Dat[ 13]:=07FFFH; Dat[ 14]:=0F000H;(* 5*)
  88.  Dat[ 15]:=08000H; Dat[ 16]:=07FFFH; Dat[ 17]:=0F000H;(* 6*)
  89.  Dat[ 18]:=0FFE0H; Dat[ 19]:=07FFFH; Dat[ 20]:=0F000H;(* 7*)
  90.  Dat[ 21]:=0FFE0H; Dat[ 22]:=07FFFH; Dat[ 23]:=0F000H;(* 8*)
  91.  Dat[ 24]:=0FFE0H; Dat[ 25]:=07FFFH; Dat[ 26]:=0F000H;(* 9*)
  92.  Dat[ 27]:=0FFE0H; Dat[ 28]:=07FFFH; Dat[ 29]:=0F000H;(*10*)
  93.  Dat[ 30]:=0FFE0H; Dat[ 31]:=07FFFH; Dat[ 32]:=0F000H;(*11*)
  94.  Dat[ 33]:=0FFE0H; Dat[ 34]:=07FFFH; Dat[ 35]:=0F000H;(*12*)
  95.  Dat[ 36]:=0FFE0H; Dat[ 37]:=07FFFH; Dat[ 38]:=0F000H;(*13*)
  96.  Dat[ 39]:=0FFE0H; Dat[ 40]:=07FFFH; Dat[ 41]:=0F000H;(*14*)
  97.  Dat[ 42]:=0FFE0H; Dat[ 43]:=07FFFH; Dat[ 44]:=0F000H;(*15*)
  98.  Dat[ 45]:=0FFE0H; Dat[ 46]:=02BBAH; Dat[ 47]:=0A000H;(*16*)
  99.  Dat[ 48]:=08000H; Dat[ 49]:=00E0CH; Dat[ 50]:=00000H;(*17*)
  100.  Dat[ 51]:=08000H; Dat[ 52]:=00E0CH; Dat[ 53]:=00000H;(*18*)
  101.  Dat[ 54]:=04000H; Dat[ 55]:=01E0CH; Dat[ 56]:=00000H;(*19*)
  102.  Dat[ 57]:=01FFFH; Dat[ 58]:=0FFFFH; Dat[ 59]:=0F000H;(*20*)
  103.  Dat[ 60]:=00001H; Dat[ 61]:=0FFFFH; Dat[ 62]:=0F000H;(*21*)
  104.  Dat[ 63]:=0F800H; Dat[ 64]:=000FFH; Dat[ 65]:=0C000H;(*22*)
  105.  
  106.   (* Plane 2 *)
  107.  Dat[ 66]:=00000H; Dat[ 67]:=00000H; Dat[ 68]:=00000H;(* 1*)
  108.  Dat[ 69]:=00000H; Dat[ 70]:=00000H; Dat[ 71]:=00000H;(* 2*)
  109.  Dat[ 72]:=00000H; Dat[ 73]:=00000H; Dat[ 74]:=00000H;(* 3*)
  110.  Dat[ 75]:=05540H; Dat[ 76]:=07FFFH; Dat[ 77]:=0F000H;(* 4*)
  111.  Dat[ 78]:=00020H; Dat[ 79]:=08000H; Dat[ 80]:=00000H;(* 5*)
  112.  Dat[ 81]:=00020H; Dat[ 82]:=08001H; Dat[ 83]:=0E000H;(* 6*)
  113.  Dat[ 84]:=00000H; Dat[ 85]:=087FFH; Dat[ 86]:=0E000H;(* 7*)
  114.  Dat[ 87]:=03F80H; Dat[ 88]:=087FFH; Dat[ 89]:=0E000H;(* 8*)
  115.  Dat[ 90]:=03F80H; Dat[ 91]:=087E6H; Dat[ 92]:=00000H;(* 9*)
  116.  Dat[ 93]:=00000H; Dat[ 94]:=081FEH; Dat[ 95]:=00000H;(*10*)
  117.  Dat[ 96]:=00000H; Dat[ 97]:=0807EH; Dat[ 98]:=00000H;(*11*)
  118.  Dat[ 99]:=00000H; Dat[100]:=0811FH; Dat[101]:=08000H;(*12*)
  119.  Dat[102]:=00000H; Dat[103]:=08307H; Dat[104]:=0E000H;(*13*)
  120.  Dat[105]:=00000H; Dat[106]:=08311H; Dat[107]:=0E000H;(*14*)
  121.  Dat[108]:=00000H; Dat[109]:=08318H; Dat[110]:=06000H;(*15*)
  122.  Dat[111]:=00000H; Dat[112]:=04318H; Dat[113]:=00000H;(*16*)
  123.  Dat[114]:=00000H; Dat[115]:=00E0CH; Dat[116]:=00000H;(*17*)
  124.  Dat[117]:=00000H; Dat[118]:=00E0CH; Dat[119]:=01000H;(*18*)
  125.  Dat[120]:=03D55H; Dat[121]:=05F5DH; Dat[122]:=0F000H;(*19*)
  126.  Dat[123]:=01FFFH; Dat[124]:=0FFFFH; Dat[125]:=0F000H;(*20*)
  127.  Dat[126]:=00001H; Dat[127]:=0FFFFH; Dat[128]:=0F000H;(*21*)
  128.  Dat[129]:=0F800H; Dat[130]:=000FFH; Dat[131]:=0C000H;(*22*)
  129.  
  130. END;
  131. END AmokDisk.
  132.